home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / mailii.arc / ML2LAB.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  3.5 KB  |  128 lines
  1. * ML2LAB.CMD
  2. ERASE
  3. ?'                  PRINT LABELS'
  4. ?
  5. ? '   USE 132 COL. PAPER FOR OPTION 2 '
  6. ?'    USE 15/16 X 3.5 LABELS FOR OPTION 1 ,3 OR 4 '
  7. ?'    ESCAPE TO EXIT AT ANY TIME'
  8. SET TALK OFF
  9. * SET-UP LABELS
  10. ?
  11. STORE 'Y' TO ANSWER
  12. DO WHILE !(ANSWER)='Y'
  13.   ?'PRINT SET-UP LABEL? (Y/N)'
  14.   WAIT TO ANSWER
  15.     IF !(ANSWER)='Y'
  16.         SET PRINT ON
  17.         ?'LINE1 AAAAA'
  18.         ?'LINE2 BBBBB'
  19.         ?'LINE3 CCCCC'
  20.         ?'LINE4 DDDDD'
  21.         ?'LINE5 EEEEE'
  22.         ?
  23.         SET PRINT OFF
  24.     ENDIF
  25. ENDDO
  26. * DETERMINE MODE
  27. * SET UP MEMORY VARIBLES
  28. STORE '                                 ' TO MSPACE
  29. STORE '' TO MLINE1
  30. STORE '' TO MLINE2
  31. STORE '' TO MLINE3
  32. STORE '' TO MLINE4
  33. STORE '' TO MLINE5
  34. STORE 0 TO MCOUNT
  35. ERASE
  36. ?
  37. ?
  38. ?
  39. ?'                      RECORD SELECTION'
  40. ?
  41. ?
  42. ?'              1 - GET RECORD NUMBER FROM KEYBOARD'
  43. ?
  44. ?'              2 - USE SPECIFIED INDEX FILE 132 COL. FORMAT '
  45. ?
  46. ?'              3 - PRINT ENTIRE DATA FILE'
  47. ?
  48. ?'              4 - USE SPECFIED INDEX FILE SINGLE COL. FORMAT '
  49. ?
  50. ?' ENTER SELECTION'
  51. WAIT TO MODE
  52. IF MODE='1'
  53.         * LABEL1.CMD
  54.         * PRINT LABEL FROM RECORD NUMBER
  55.         ERASE
  56.         DO WHILE T
  57.           ACCEPT "RECORD NUMBER" TO RECNO
  58.           SET PRINT ON
  59.           GOTO RECORD &RECNO
  60.           DO ML2LAB1
  61.           SET PRINT OFF
  62.         ENDDO
  63.         SET TALK ON
  64. ENDIF
  65. IF MODE='2'
  66.         * LABEL2.CMD
  67.         * PRINTS LABELS FROM SPECIFIED INDEX FILE
  68.         ERASE
  69.         ACCEPT "INDEX FILE NAME" TO FILNAME
  70.         USE &BASE INDEX &FILNAME
  71.         DO WHILE .NOT. EOF
  72.                 DO MLABEL5
  73.                 IF MCOUNT=4
  74.                  SET PRINT ON
  75.                  ? MLINE1
  76.                  ? MLINE2
  77.                  ? MLINE3
  78.                  ? MLINE4
  79.                  ? MLINE5
  80.                  ?
  81.                  ?
  82.                SET PRINT OFF
  83.                STORE '' TO MLINE1
  84.                STORE '' TO MLINE2
  85.                STORE '' TO MLINE3
  86.                STORE '' TO MLINE4
  87.                STORE '' TO MLINE5
  88.                STORE 0 TO MCOUNT
  89.                SKIP
  90.              ELSE
  91.                SKIP
  92.         ENDDO
  93.         SET TALK ON
  94. ENDIF
  95. IF MODE='3'
  96.         * LABEL3.CMD
  97.         * PRINTS LABELS FROM ENTIRE DATA FILE
  98.         ERASE
  99.         USE &BASE
  100.         GO TOP
  101.         SET PRINT ON
  102.         DO WHILE .NOT. EOF
  103.                 DO ML2LAB1
  104.                 SKIP
  105.         ENDDO
  106.         SET PRINT OFF
  107.         SET TALK ON
  108. ENDIF
  109. IF MODE='4'
  110.         * LABEL FORMAT IN SINGLE COL.
  111.         ERASE
  112.         ACCEPT "INDEX FILE NAME" TO FILNAME
  113.         USE &BASE INDEX &FILNAME
  114.         SET PRINT ON
  115.         DO WHILE .NOT. EOF
  116.            DO ML2LAB1
  117.            SKIP
  118.         ENDDO
  119.         SET PRINT OFF
  120.         SET TALK ON
  121.   ELSE
  122.         DO ML2
  123. ENDIF
  124. RETURN
  125. DO ML2
  126. ENDIF
  127. RETURN
  128.